home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-02
/
cpucheck.zip
/
CPUCHECK.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1990-04-30
|
721b
|
39 lines
PROGRAM cpucheck;
{
cpucheck.PAS
Version 1.00, 21 Apr 1990 - Display CPU type returned by ChipType function
in Chips unit.
(c)Copyright 1990 Spirit of Performance, Inc.
}
USES
Chips;
var
Chip_Value : integer;
BEGIN
Chip_Value := ChipType;
if Chip_Value > 480 then
Write ( 'Processor is 80486' )
else
if Chip_Value > 380 then
Write ( 'Processor is 80386' )
else
if Chip_Value > 280 then
Write ( 'Processor is 80286' )
else
Write ( 'Processor is 808x or 8018x' );
if Chip_Value > 480 then
Writeln
else
if Chip_Value mod 10 <> 0 then
Writeln ( ' with math coprocessor' )
else
Writeln;
END.